unit u_obs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCore, dxButton, ExtCtrls, MMJPanel, StdCtrls, DBCtrls, RXCtrls;

type
  Tf_obs = class(TForm)
    RxLabel14: TRxLabel;
    edt1: TEdit;
    MMJPanel1: TMMJPanel;
    btnFiltro: TdxButton;
    btnSair: TdxButton;
    procedure btnFiltroClick(Sender: TObject);
    procedure btnSairClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_obs: Tf_obs;

implementation

uses u_Pesagem, UDM, u_PesoSaida;

{$R *.dfm}

procedure Tf_obs.btnFiltroClick(Sender: TObject);
begin
  if (DM.TELA = 'BALANCA') then
     DM.dsBalancaOBSERVACAO.AsString := 'Autorizado por ' + '-' + usuarioautoriza + '-' + edt1.Text
  else
     DM.ds_CotasOBSERVACAO.AsString := 'Autorizado por ' + '-' + usuarioautoriza + '-' + edt1.Text;
  Close;   
end;

procedure Tf_obs.btnSairClick(Sender: TObject);
begin
  close;
end;

end.
